home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / cg.lha / cg / src / cg.awk1 < prev    next >
Text File  |  1992-11-24  |  664b  |  17 lines
  1. BEGIN    { n = 10; }
  2. /\?.*\?/ {    if ($3 == "W") proc = "Warning";
  3.      else if ($3 == "I") proc = "Information";
  4.      else             proc = "Error";
  5.           if ($4 == "?") print "Tree." proc  " (" $2 ", t^." sel ".Pos);";
  6.      else             print "Tree." proc "I (" $2 ", t^." sel ".Pos, Errors." $4 ", ADR (" $5 "));";
  7.      if (m [$2] == "") {
  8.         m [$2] = 1;
  9.         print $2 "    =", n ++ "    ;" > "/tmp/cg/consts1";
  10.         print "|", $2, "    : WriteS (StdError, \"" $2 "\");" > "/tmp/cg/writes01";
  11.      };
  12.      next; }
  13. /[A-Za-z][A-Za-z0-9]*. [A-Za-z][A-Za-z0-9]* :$/ { sel = $3; print; next; }
  14. /[A-Za-z][A-Za-z0-9]*    :$/ { sel = $1; print; next; }
  15. / :-/    { sel = $1; print; next; }
  16.     { print; next; }
  17.